function plot_5d_error_slice_toolbox(patient, error_5d, fig_num)
    
     %| Plot a single coronal slice of the 5d model error
    
    %------------------------------------------------------------------------
    %|      Dependancies;  
    %|                  
    %|                 
    %|                 
    %------------------------------------------------------------------------
    %   This file is part of the
    %   5D-Novel4DCT Toolbox  ("Novel4DCT-Toolbox")
    %   DH Thomas, Ph.D
    %   University of California, Los Angeles
    %   Contact: mailto:dhthomas@mednet.ucla.edu
    %------------------------------------------------------------------------
    % $Author: DHThomas $	$Date: 2014/04/01 10:23:59 $	$Revision: 0.1 $
    if nargin < 3
        fh=findall(0,'type','figure');
        fig_num = max(fh)+1;
      
    end
    
    error_cor_slice = squeeze(error_5d(floor(patient.dim(1)/2),:,:)).*squeeze(patient.static_mask(floor(patient.dim(1)/2),:,:));
    error_sag_slice = squeeze(error_5d(:,patient.sagittal_left_middle,:)).*squeeze(patient.static_mask(:,patient.sagittal_left_middle,:));
    
    figure;
    set(gcf,'units','normalized','position',patient.default_figure_position);
    subplot_total = round(patient.dim(2)+patient.dim(1)+40);
    
    subplot(1,subplot_total,1:round(patient.dim(2)-5))
    imagesc(rot90(error_cor_slice));
    axis image 
    axis off
    colorbar
        pm = char(177);
    title(sprintf('Mean 5D model error, patient #%d  = %.2f %c %.2f [mm]',patient.pt, patient.mean_error_5d, pm, patient.std_error_5d))
        subplot(1,subplot_total,patient.dim(2)+15:subplot_total)

        imagesc(rot90(error_sag_slice));
    axis image 
    axis off
    colorbar
    title(sprintf('Mean 5D model error, patient #%d  = %.2f %c %.2f [mm]',patient.pt, patient.mean_error_5d, pm, patient.std_error_5d))
